module PRINT3 where
putstr = putStr
putstrln = putStrLn

mygreeting :: String
mygreeting = "hello" ++ " world!"

hello :: String; hello = "hello"
world :: [Char]; world = "world"

main :: IO ()
main = do
    putstrln ""
    putstrln mygreeting
    putstrln secondgreeting
    where secondgreeting =
            concat [hello, " ", world, "!"]
    putstrln integerlists
    where integerlists =
            concat [[1, 2], [3, 4, 5], 6, [7, 8], [9]]
